home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / roboxtra.zip / TC_PTR.RS < prev   
Text File  |  1992-02-15  |  2KB  |  41 lines
  1. ;-----------------------------------------------------------------------
  2. ;TITLE "Reset TomCat pointers using BBSID.PTR"
  3. ;FILENAME:  tc_ptr.rs
  4. ;-----------------------------------------------------------------------
  5. ;NOTE: This script file is for use with Robocomm ver 4.x and WildCat
  6. ;      BBSes using the TomCat door. It assumes that PKunZIP is in your
  7. ;      path, that the TomCat door is accessed from the Message Menu, and
  8. ;      that the command to get to the Message Menu from the Main Menu is
  9. ;      "M [Return]". Edit lines 3, 4, and/or 7 if this is not the case.
  10. ;      Written by Michael MacDonald
  11. ;-----------------------------------------------------------------------
  12.  
  13. PARAMETER 1 "Set pointers to [B]efore or [A]fter last D/L?"
  14. ENDPARAMS
  15. MESSAGE "Resetting message pointers"
  16. WHEN "%BBS32%" SEND "|"                        ;More?
  17. WHEN "%BBS34%" SEND "|"                        ;Pause
  18. WAITFOR "%BBS35%"                              ;Main Menu Prompt
  19. SEND "M|"                                      ;Request Message Menu
  20. WAITFOR "%BBS47%"                              ;Message Menu Prompt
  21. SEND "%BBS63%|"                                ;Open Mail Door
  22. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  23. RUN "PKUNZIP -o %QWKDIR%%ID%.QWK %ID%.PTR"     ;Unzip the PNT file
  24. IF ERRORLEVEL GOTO ERROR                       ;See if PKunZIP failed
  25. SEND "C|"                                      ;Choose [C]onfigure
  26. WAITFOR "CONFIGURE MENU"                       ;Configure Prompt
  27. SEND "U|"                                      ;Request PTR upload
  28. WAITFOR "%ID%.PTR"                             ;The BBS is ready
  29. UPLOAD "%ID%.PTR" USING "%BBS22%"              ;Upload the PTR
  30. WHEN "[B]efore or [A]fter" SEND "%P1%|"        ;Is this configurable?
  31. WAITFOR "CONFIGURE MENU"                       ;Configure Prompt
  32. SEND "Q|"                                      ;Quit Configure
  33. WAITFOR "%BBS40%"                              ;Mail Door Main Prompt
  34. SEND "Q|"                                      ;Quit TomCat Door
  35. WAITFOR "%BBS47%"                              ;Message Menu Prompt
  36. SEND "Q|"                                      ;Request Main Menu
  37. EXIT 0                                         ;Exit the script
  38. :ERROR
  39. SEND "Q|"                                      ;Quit TomCat Door
  40. EXIT 1                                         ;Exit with an error
  41.